home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Memphis Amiga Group / MAG New User Disk Set v1 (1993-12)(Memphis Amiga Group)(Disk 1 of 6).zip / MAG New User Disk Set v1 (1993-12)(Memphis Amiga Group)(Disk 1 of 6).adf / Rexx / Videospeak.term < prev    next >
Text File  |  1993-11-06  |  683b  |  50 lines
  1. /** AutoLogin ARexx Script for
  2.  ** Videospeak BBS - Written by MerliN
  3.  **/
  4.  
  5. say 'Attempting AutoLogin...'
  6.  
  7. timeout 10
  8.  
  9. wait 'RETURN'
  10. if rc ~= 0 then do
  11.     beepscreen
  12.     say 'Script Failed, Login Manually!!'
  13.     delay 2
  14.     exit
  15.     end
  16.     else send '\r'
  17.  
  18. wait 'ANSI'
  19. if rc ~= 0 then do
  20.     beepscreen
  21.     say 'Script Failed, Login Manually!!'
  22.     delay 2
  23.     exit
  24.     end
  25.     else send 'A'
  26.  
  27. wait 'handle'
  28. if rc ~= 0 then do
  29.     beepscreen
  30.     say 'Script Failed, Login Manually!!'
  31.     delay 2
  32.     exit
  33.     end
  34.     else send '\u\r'
  35.  
  36. wait 'password'
  37. if rc ~= 0 then do
  38.     beepscreen
  39.     say 'Script Failed, Login Manually!!'
  40.     delay 2
  41.     exit
  42.     end
  43.     else send '\p\r'
  44.  
  45. say 'AutoLogin Successful!!'
  46. say 'Script by MerliN!'
  47. delay 2
  48.  
  49. exit
  50.